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/*****************************************************************************; 

* ALL RIGHTS RESERVED 
* 

* PROGRAM NAME: fontcheck 

* RELEASE: 6.00 

* DATE: Dec 11, 1998 
* 

************************************************* 



**************************** 



* AUTHOR: Mike Martyn 

* DIVISION: SDS - Engineering Productivity Group 

* PROJECT MANAGER: Cliff Lindroth 

*********************************^ 
* 

* Program Description: 
* 

* REV 1: 9-7-93 

* This program takes as input an .mi file. It scans for problem characters 

* that will not translate in the mi2dxf translator. It counts the number 

* of offenders and changes their color in the resultant modified .mi file. 

* The count of offenders is output to the user and on the next load of the 

* .mi file into me30, the offenders will show up in a special color. 

* REV 2: 10-12-93 . 

* The offenders are now tagged in the .mi file with a ptr to an into 

* element that specifies a layer. So when the new_mifile is loaded into 

* me30 one can toggle the badtext layer to see all of the elements that 

* need to be converted to vectors before mi2dxf translation. 

* Bad prefixes and postfixes to dimensions are found now as well. 

* REV 3: 8-3-94 , , 

* The change to the mi file format with me30 6.0 required the change from 

* "four" to "five" lines being used after the TEX sequence number. 

* REV 4: 8-12-94 

* Added the "make_newline" function to "swap out" the diameter, degree, 

* and plus/minus ( A N) characters before tagging "badtext" to the badtext 

* layer. So as to convert fewer items to vectors and reduce the size of the 

* resultant translated file. 

* REV 5: 12-11-95 

* Added the screening for BALLOON elements in the .mi file. Any text, 

* whether its within a dimension or not; has symbol fonts or function key 

* symbols or not, gets tagged for vectorization . 

* REV 6* 12-11-98 (wow, what a coincidence, December 11th) 

* Added the screening for any TEXT that contains a control character _ 

* for the MI files generated in SolidDesigner 1 s Anotation Module 

* REV 7: 02-26-99 

* Rewrite of the program. Added new functionality. 

-new usage message to handle 3 options and 2 possible commandlines 
-original code becomes one of the options, with newly added flexibility 

* @tag -tag vectorization elements with info given 

@find -return text of the TEX element (s) that point to the given info 
Qchange -change text of the TEX element (s) that point to the given info 

* with the given new text. 

* REV 8: 01-17-02 . . 

* Changed all arrays to have SIZE linelength to accomodate the multi line 

* size of infos in the MI file. Currently set at 500. 

* This fixed a segmentation violation core dump that was happening with 

* inqmi . 
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#include <stdio.h> 

#define SIZE 500 
ttdefine MATCH != NULL 

#define NO_MATCH M NULL 

idefine my_itoa ( string_p, x) sprintf ( string_p, %d\n , x) 

int make_element(char array [SIZE] [SIZE] , int *, char [SIZE], char[SIZEj, FILE *, 
char array2 [SIZE] [SIZE] , int); 

int tag__element (char array [ SIZE] [ SIZE] , int *, char [SIZE], int) ; 
void make_newline (char *line, char *newline) ; 
void usage (char [15] , char [SIZE] ) ; 

main(argc, argv) 

int argc; 

char *argv[]; 

{ 

char option [10] , filename [280] , infotext [80] , new_inf otext [ 8 0 ] , uname[80], 
info_textfile[80] ; 



/*==„=_====================== usage =========== — = 

if (argc <= 2) { 

usage(argv[0] , "") ; 
} el se { 

if (strstr (argv[3] , "tag") MATCH) { 
if (argc != 5) usage (argv [0] , "tag" ) ; 

}else if (strstr (argv[3] , "find") MATCH) { 
if (argc != 5) usage (argv [0] , "find" ) ; 

}else if (strcmp (argv [3] , "changem") == NULL) { 
if (argc != 5) { 

usage (argv[0] , "changem") ; 

}else if ( strcmp (argv [3] , "change") ==NULL) { 
if (argc != 6) { 

usage (argv[0] , "change") ; 

} 

}else { 

usage (argv[0] , "") ; 

} 

} 



MAIN ===============================* / 



strcpy (filename, argv[l] ) ; 

sprintf (uname, "%s", argv[2]); 

strcpy (option, argv [3] ) ; 

sprintf (infotext, "%s", argv [4] ) ; 

sprintf (new__inf otext, "%s\n", argv [5] ) ; 

sprintf (info_textfile, "%s", argv[4]); 

printf("%s %s %s %s %s\n", filename, uname, option, inf o_textf ile , 
new_inf otext ) ; 

if (strstr (option, "tag") MATCH) { 

printf ("%s\n", "going into function tag"); 
tag_opt ion (filename, infotext, uname); 

} 

else if (strstr (option, "find") MATCH) { 
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print f ("%s\n", "going into function find"); 
find option (filename, infotext) ; 

else if (strcmp (option, "change") == NULL) { 

printf ("%s\n", "going into function change_option" ) ; 
change_option( filename, infotext, new_inf otext ) ; 

else if (strcmp (option, "changem") == NULL) { 

printf ("%s\n", "going into function change__option2 " ) ; 
change_option2 (filename, inf o_textf ile) ; 



} 



} 



/*================== MAIN_TAG_opt ion ===============«== : ===== :: ======= / 

int tag_option (filename, infotext, uname) 
char filename [80] , inf otext [ 80 ] , uname [80]; 

{ 

FILE *mifile, *new_mifile, * tmp_new_mif lie; 
int i=0, el__count=0, bal_count=0; 

int one=l, f our=4 , five=5, six=6, *array_count , n_args; 

char line [SIZE], newline [SIZE] , element [SIZE] [SIZE] , bals [SIZE] [SIZE] ; 
char array[SIZE] [SIZE] , inf o_tag [10] , unamef ile [ 80] ; 

mifile = f open ( filename, "r"); 

sprintf (unamef ile, "%s%s", "/tmp/one_", uname); 
tmp_new_mifile = f open (unamef ile, "w"); 

while (fgets (line, sizeof ( line ) , mifile) !=NULL) { 
if ( ( (strstr (line, " \01 6\060\017 " ) MATCH)) I I 
( (strstr (line, "\016\061\017") MATCH) ) I I 
( (strstr (line, "\016\062\017" ) MATCH))) { 
make_newline (line, newline); 
fputs (newline, tmp_new_mif ile) ; 

} 

else 

fputs (line, tmp_new_mif ile) ; 
if (strstr (line, "BAL\n" ) MATCH) { 

fgets (line, sizeof (line) , mifile) ; 
fputs (line, tmp_new_mif ile ) ; 
strcpy (bals [bal_count] , line) ; 
++bal_count; 

} 

} 

— bal_count; 

fclose (mifile) ; ^ 
f close ( tmp_new_mif ile) ; 

strcpy (inf o_tag, "") ; 

mifile = f open (unamef ile , "r"); 

sprintf (unamef ile, "%s%s", " /tmp/tagged_mi_" , uname); 
new_mifile = f open (unamef ile , "w"); 

while (fgets (line, sizeof ( line ) , mifile) !=NULL) { 
fputs (line, new_mif ile) ; 
el_count=0; 

/* if ( (strcmp (line, "BSPL\n") ==NULL) || 
(strcmpdine, "SPL\n") == NULL) ) { 
make_element (element, &el__count, info_tag, inf otext , mifile , bals , bal_count ) ; 
el count = tag_element (element, &el_count, info__tag, five); 
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for ( i=0 ; i<el__count ; i++ ) 

fputs (element [i] , new_mif ile) ; 
fputs (" |~\n", new_mifile) ; 

} 

else */ 

if (strcmpdine, "LED\n" ) ==NULL) { 

make__element (element , &el_count , inf o_t ag , inf otext , mif xle , bals , bal_count ) ; 
el count = tag__element (element, &el__count, info__tag, five); 
for ( i=0 ; i<el_count ; i++ ) 

fputs (element [i] , new_mif ile) ; 
fputs {" I -An", new_mifile) ; 

} 

if { (strcmpdine, "TEX\n" ) ==NULL) I I 

(strcmpdine, "ASSP\n") == NULL) ) { 
if ((strcmpdine, "TEX\n") == NULL) && ( strcmp ( inf o_tag, "'') == NULL)) { 
printf ("Info supplied does not exist in this MI file.W); 
exit (1) ; 

} 

if (make__element (element, &el_count , inf o_tag, inf otext , mif ile, bals , bal_count ) ) 
el^count = tag_element (element, &el_count, info_tag, five); 

for ( i=0 ; i<el_count ; i++ ) 

fputs (element [i] , new_mif ile) ; 

fputs ( " I ~\n" r new_mifile) ; 

} 

else if ( (strcmpdine, "DSGS\n") ==NULL) 
(strcmpdine, "DRAD\n") == NULL) 
(strcmp (line, "DDIA\n" ) == NULL) 
(strcmpdine, "DANG\n") == NULL) 
(strcmpdine, " DARC\n" ) == NULL) 
(strcmpdine, "DSGL\n" ) == NULL) 
(strcmpdine, "DCHN\n" ) == NULL) 
(strcmpdine, "DDAS\n" ) == NULL) 
(strcmpdine, "DDAL\n" ) == NULL) 
(strcmpdine, "DCOR\n") == NULL) 
(strcmpdine, "DDLS\n" ) == NULL) 
(strcmp (line, " DCHMF\n* 



(strcmp (line, "DUHJXll^■\n' , ) == NULL) ) { 
if (make_element (element, &el_count, inf o_tag, inf otext , mif ile, bals, bal_count) ) 
el count - tag_element (element, &el_count, info_tag, one); 
for ( i=0 ; i<el_count ; i++ ) 

fputs (element [i] , new_mif ile) ; 
fputs (" I ~\n" , new_mifile) ; 
} else 

continue; 



} 

f close 
f close 

return (0) 

} 



(mif ile) ; 
(new_mifile) ; 



/*================== MAIN_FIND_option ============================== / 

int find_option (filename, inf otext) 
char filename [80] , inf otext [ 80 ] ; 

{ 

FILE *mifile; 

int e=0, i=0, m=0, n=0, count=0, bal_count=0, found=0, inf o_count=0 , text_loc; 
int one=l, four=4, five=5, six=6, *array__count , ar_len=0, n_args, d=0; 
int info index=0, imatch_count=l , size__str=0; 
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char line [SIZE], bominfo [SIZE] , earray [ SIZE] [ SIZE] , bals SIZE] [SIZE] ; 
char info_array [SIZE] [SIZE], array [SIZE] [ SIZE] , inf o_tag [ 10] , el_type [10] ; 
char info_matches [SIZE] [SIZE], inf o_textmatches [SIZE] [SIZE] ; 

char text [260] ; 

mifile = f open ( filename, "r"); 

/* START READING THE MI FILE */ 

while (fgets (line, sizeof (line) , mifile) ! = NULL) { 
count=0 ; 

strcpy (el_type, line) ; 

if ( (strcmp(el_type, "ASSP\n") == NULL) I I 
<strcmp(el_type, "TEX\n" ) == NULL) ) { 
/* element type is ASSP or TEX */ 

if ( (strcmp(el_type, "TEX\n" ) == NULL) && ( imatch_count ==1)) { 

/* 

found a TEX element and imatch_count is still empty: didn't find the info tag 

in the infos ASSPs so exit with message "info not found" 

*/ 

printf {"Info supplied does not exist in this MI file.W); 
exit (1) ; 

} 

/* ENTERING A TEX or ASSP ELEMENT */ 

while (strstr (fgets (line, sizeof ( line) , mifile), "|~\n") NO_MATCH) { 
/* START building ELEMENT array */ 

strcpy (earray [count ] , line); 

if (count — 5) { 

/* capture the info array */ _ 

/*get the value of earray [count ] this is the number of infos in the element / 
info_count = a toi (earray [count ]) ; 

for ( inf o_index=0 ; inf o_index<inf o_count ; inf o_index++ , count++ ) { 
fgets (line, sizeof (line) , mifile) ; 
/* CONTINUE building ELEMENT array */ 

strcpy (earray [count] , line) ; 

/* START building INFO array */ 

strcpy (inf o_array [inf o_index] , line) ; 

/* element's info__array is now captured and some of the element array */ 
} else { 
count++; 

} 

/^compare each line with the search text (infotext) for contained in*/ 

if (strstr (line, infotext) MATCH) { /* MATCH means "contained in" */ 
/* if you match the infostring you are in the info ASSP you are looking for */ 
/*printf ("line is : %s->inf otext is: %s\n",line, infotext);*/ 

/*sprintf (info_tag, "%d", earray[0]); */ 

/*** earray [0] needs to go into the info_matches array (not mfo_tag string) / 
/* strcpy (inf o_tag, earray[0J); */ 

/*printf ( "imatch_count is: %d\n" , imatch_count ) ;*/ 
/*printf ("earray subO is: %s\n" , earray [ 0] );* / 

strcpy ( inf o_mat ches [ imatch_count ] , earray [0] ) ; 

strcpy (inf o_textmatches [ imatch_count ] , earray [2] ) ; /*chomp*/ 
/*printf ("info_matches sub%d is: 

%s\n" , imatch_count, info_matches [ imatch_count ] ) ;*/ 
/*this captures the info element number*/ 
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/* of the infotext being searched for 
/* printf ("the info element number is 
imatch_count++ ; 

} 

} 

/* 

printf ("* inf o_matches subO is: 
printf ("*info_matches subl is: 
printf ("*info__matches sub2 is: 



1 , info_matches [imatch_count] ) ;*/ 



%s" , info_matches [0] ) ; 
%s", info_matches [1] ) ; 
%s" / info_matches [2] ) ; 



/*=========:========NEEDS TESTING FROM HERE====-=============== ' 

/* FINISHED AN ELEMENT */ 

/* the TEX element has now been read into the earray */ 

/* printf <"%s: %d" , "length of element earray is" , count); */ 

if (strcmp(el_type, "TEX\n") == NULL) { 
/* again check if element is TEX */ 
for (m=0;m<info_count;m++) { 
/* printf ("info_matches sub%d is: * %s* " ,m, inf o_matches [m] ) ; */ 
/*printf ("the info element number is *%s*",inf o_matches [imatch_count ] ) ; */ 

/* for each index in the info_array check the info number to see if it 
matches any of the info_matches array 1 s info_tag numbers */ 
for (n=0;n<imatch_count;n++) { 
/* printf ("inf o_matches sub%d is * %s* " , n, inf o_matches [n] ) ; * / 

if ( strcmp ( inf o_array [m] , info_matches [n] ) == NULL) { 
/* exactly matched the info_tag to an info in the info_array of this element */ 
if (strstr (earray [count -2], "_") == NULL) { 
d=0; 

while (inf o_textmatches [n] [d] != ' \n'){ 
bominfo[d] = inf o_textmatches [n] [d] ; 
d++; 

} 

bominfo[d] = NULL; 

/* 

size__str = strlen ( inf o_textmatches [n] ) ; 

strcpy (bominfo, "") ; 

for (d=0;d<size_str-l;d++) { 

bominfo [d] = inf o_textmatches [n] [d] ; 

} 

bominfo [d] = NULL; 

*/ 

/* print out the text (2 lines up from the bottom of the array) */ 
for (e=2 7+inf o_count ; e<=count-2; e++) { 

/*printf ("%s:%s", bominfo, earray [count-2 ] ) ;*/ 
printf ("%s:%s", bominf o , earray [e] ) ; 

} 

strcpy (bominfo, "" ) ; 

} 

break; 

} 

} 

} 

} 

} 

} 

/* 

for (i=0; i<inf o_count; i++) { 
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printf ("%s", info_array [i] ) ; 

} 

for (i=0; i<imatch__count ; i++) { 
printf ("%s", infojmatches [i] ) ; 

} 

*/ 

fclose (mifile) ; 
return (0) ; 

} 

MAIN_CHANGE ========================= : ===* / 

int change_option (filename, infotext, new_inf otext ) 
char filename [ 80 ] , inf otext [80] , new__inf otext [ 80] ; 

{ 

FILE *mifile, *new_mifile; 

int i=0, e=0, count=0, bal_count=0, found=0, inf o__count=0 , inf o_index-0, 
text loc; 

int one=l, four=4, five=5, six=6, *array_count , ar_len=0, n_args; 
int textLineCount=0; 

char line [SIZE], newline [SIZE] , element [ SIZE] [SIZE] , bals [ SIZE] [ SIZE] ; 
char info_array [SIZE] [SIZE] , array [SIZE] [SIZE] , inf o_tag [ 10 ] , el_type[10]; 

char text [260] ; 

printf ("inf otext is: %s\n", infotext) ; 
printf ("new_inf otext is: %s", new_inf otext ) ; 

strcpy (info_tag, "") ; 

mifile = f open { filename , "r"); 

new_mifile = f open ( " /tmp/changedMI " , "w"); 

/* START READING THE MI FILE */ 
/*===========================*/ 

while (fgets (line, sizeof ( line ) , mifile) !=NULL) { 

count=0 ; 

inf o_count=0 ; 

strcpy (el_type, line); 

/* ELEMENT TYPE IS ASSP or TEX */ 
/*=============================* / 

if ( (strcmp(el_type, "ASSP\n") ==NULL) || 
(strcmp(el_type, "TEX\n" ) == NULL) ) { 
if ( (strcmp(el_type / "TEX\n" ) ==NULL) && (strcmpdnfojag, ) == NULL) ) 

printf ("Info supplied does not exist in this MI file.W); 
exit (1) ; 

} 

/* BUILD THE ELEMENT ARRAY */ 
/*=========================*/ 

while (strstr (fgets (line, sizeof ( line) , mifile), "|~\n") NO_MATCH) { 
strcpy (array [count] , line); 
if (strcmp(el_type, "TEX\n") == NULL) { 
/* IF TEX ELEMENT, BUILD THE INFO_ARRAY */ 
/ * „====================================* / 

if (count == 5) { 

info_count = atoi ( array [count ] ) ; 
++ count ; 

for (info_index=0; inf o_index<inf o_count ; inf o_index++ , count++ ) { 
fgets (line, sizeof (line) , mifile) ; 
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strcpy {array [count] , line) ; 

strcpy (info_array [inf o_index] , line) ; 

} 

} else{ 
++count ; 

} 



/* IF ASSP ELEMENT , CHECK FOR infotext, capture ASSP ELEMENT NUMBER <info_tag) 



*/ 

/ * ===-====-=====-============="===== : === 

7 if (strcmp (el_type, "ASSP\n") == NULL) { 

if (strstr (line, infotext) MATCH) { 
strcpy (inf o__tag, array[0] ) ; 

} 

++ count ; 

} 

} 

} else { 

fputs(line, new_mifile) ; 

} 

/* COMPARE INFO TAG TO INFO_ARRAY TAGS */ 
/ * ==„=================================* / 

if (strcmp (el_type, "TEX\n" ) — NULL) { 
for (i=0; i<info__count ; i++) { 
/*IF MATCH, MAKE THE TEXT CHANGE IN THE ELEMENT* / 

/ 

if (strcmp (inf o_array [i] , info_tag) == NULL) { 
/* 

printf ("%s%s", inf o_array [i ] , info_tag) ; 

printf ("strcmp inf o_array [ %dj =%s inf o_tag=%s " , i, inf o_array [ x ] , 

info_tag) ; 

printf ( "oldText was: %s", array [count - 23); 
*/ 

/* this is new 2-04-02, change the text */ 

/* if the number of text lines is more than one, */ 

/* this loop is blanking out the multiline text */ 

e=27+inf o_count; 

textLineCount = atoi (array [e] ) ; 
if (textLineCount > 1) { 

for ( e=textLineCount+l; e<=count-2 ; e++ ) { 
if (strcmp (array [e] , "0\n") — = NULL) { 
} else { 

strcpy (array [e] , new_inf otext ) ; 

} 

} 

} else { 

strcpy (array [count - 2], new_inf otext ) ; 

} 

/* the following line was in use instead of the 1-30-02 block above 

/* strcpy (array [count - 2], new_infotext) ; */ 

break; 

} 

} 

/*WRITE OUT THE TEX ELEMENT TO THE NEW MI FILE*/ 
/*============================================* / 

fputs (el_type, new_mifile) ; 
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for (i=0; i<count ; i++) { 

fputs {array [i] , new_mifile) ; 

} 

fputs (" I ~\n" , new_mif ile) ; 
/*WRITE OUT THE ASSP ELEMENT TO THE NEW MI FILE*/ 

} else if (strcmp(el_type / "ASSP\n") == NULL) { 
fputs {el_type, new_mif ile ) ; 
for ( i=0 ; Kcount ; i++ ) { 

fputs (array [i] , new_mif ile) ; 

} 

fputs (" I ~\n", new_mifile) ; 

} 

} 

fclose (mifile) ; 

f close (new_raif ile) ; 
return (0 ) ; 
} 

/ * ================= MAIN_CHANGEM ============================* / 

int change_option2 (filename, inf o_textf ile ) 
char filename [80] , inf o_textf ile [ 80 ] ; 

{ 

FILE *mifile, *new_mifile, *inf otextf lie; 

int i=0, e=0, count=0, bal_count=0, found=0, inf o_count=0 / inf o_index-0 , 
text loc; 

int k=0, j=0, m=0, one=l, four=4, five=5, six=6, *array_count , ar_len=0, 
n_args ; 

int textLineCount=0, orgs tringLength=0 , n=0; 

char line [SIZE], newline [SIZE] , element [SIZE] [SIZE] , bals [ SIZE] [SIZE] ; 
char linel [80] , strl[SIZE] / str2[SIZEJ; 

char inf o_array [SIZE] [SIZE] , array [SIZE] [SIZE] , inf o_tag [10] , el_type[10]; 
char infotext [80] , new_inf otext [80] ; 
char changem_array [100] [80] ; 

char text [260] ; 

infotextfile = f open ( inf o_textf ile, "r"); 
s trcpy ( inf o_tag , " " ) ; 

/^WORKING: HERE IS WHERE I SHOULD LOOP OVER THIS WHOLE THING 
FOREACH LINE IN THE INFOTEXTFILE 

EITHER THAT OR GO INTO THIS WHILE LOOP WHICH ITERATES OVER 
THE MIFILE, WITH AN ARRAY OF CHANGES?? YES ARRAY OF CHANNGES. 
ON EACH INSPECTION CHECK AGAINST THE COMPLETE ARRAY INSTEAD OF 
JUST THE ONE STRING. 

/* FOR EACH LINE IN THE INFO_TEXTFILE */ 
/* READ THE INFO_TEXTFILE INTO AN ARRAY*/ 

/* LOOP THROUGH THE MI FILE ONCE AND INSPECT THE ARRAY 

AT EACH COMPARISON POINT. */ 
/ * ======= ==============================* / 

while (f gets (linel, sizeof ( linel ) , infotextfile) !=NULL) { 
/*changem_array [m] = linel; */ 

/* how do I put a line into an array in C?? */ 
j=0; 

found = 0; 

strcpy (infotext, ""); 
strcpy (new_inf otext, "") ; 
orgstringLength = strlen ( linel ) ; 
for (k=0; k<orgstringLength; k++) { 
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if (linelfk] == ' :') { 
f ound^l ; 
k++; 

} 

if (found) { 

infotext [k-1] = 'NO'; 
new_infotext[j] = linel [k] ; 

j++; 

} else { 

infotext [k] = linel [k] ; 

} 

} 

new__infotext [ j-1] = ' \n'; 
new__inf otex t [ j ] = 1 \ 0 1 ; 

printf ("infotext is: %s\n", infotext); 
printf ("new_infotext is: %s", new_inf otext ) ; 
m++; 

} 

/* 

for (i=0; i<=m-l; i++) { 

printf ("%s", changem_array [i] ) ; 

} 

*/ 

exit (1) ; 

strcpy (inf o_tag, "") ; 

mifile = f open ( filename , "r"); 

new_mifile = f open ( "/tmp/changedMI" , "w"); 

/* START READING THE MI FILE */ 
/*===========================*/ 

while (fgets (line, sizeof (line) , mifile) != NULL) { 



count=0; 

inf o_count=0 ; 

strcpy (el_type, line) ; 

/* ELEMENT TYPE IS ASSP or TEX */ 
/ * =„====„====================* / 

if ( (strcmp (el_type, "ASSP\n") == NULL) 11 
(strcmp(el_type, "TEX\n" ) == NULL) ) { 
if ( (strcmp (el_type, "TEX\n" ) ==NULL) && (strcmp (info_tag, "") == NULL) ) 

printf ("Info supplied does not exist in this MI file.\n"); 
exit ( 1 ) ; 

} 

/* BUILD EACH ELEMENT ? s ARRAY */ 
/ * / 

while (strstr (fgets (line, sizeof (line) , mifile), "|-\n") N0__MATCH) { 

strcpy (array [count ] , line); 

if (strcmp (el_type, "TEX\n") == NULL) { 

/* IF TEX ELEMENT, BUILD THE ELEMENT'S INFO_ARRAY */ 
/ *================================================* / 

if (count == 5) { 

info_count = atoi (array [count] ) ; 

++count ; 

for (info_index=0; inf o_index<inf o_count ; inf o_index++ , count + + ) { 
fgets (line, sizeof ( line ) , mifile); 
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strcpy (array [count] , line); 

strcpy (info_array [ inf o__index] , line) ; 

} 

}else{ 

+ + count; 

} 

} 

/* IF ASSP ELEMENT, CHECK FOR infotext, capture ASSP ELEMENT NUMBER (info_tag) 
*/ 

/*=„„«==„===================-===== 

if (strcmp (el_type, "ASSP\n") == NULL) { 
if (strstr (line, infotext) MATCH) { 
strcpy (inf o_tag, array [0] ) ; 

} 

++ count ; 

} 

} 

}else{ 

fputs (line, new^mif ile) ; 

} 

/*IF ELEMENT IS TEX, COMPARE INFO_TAG TO I N FO_ARR A Y TAGS */ 
/ * ====== = = „==========================* / 

if (strcmp (el__type, "TEX\n" ) == NULL) { 
for (i=0; i<inf o_count ; i++) { 

/*IF MATCH, MAKE THE TEX VALUE CHANGE IN THE ELEMENT*/ 

if (strcmp (info_array [i] , info_tag) ==NULL) { 
printf ("%s%s" , inf o_array [ i] , info_tag) ; 

printf ("strcmp inf o_array [%d] =%s inf o_tag=%s " , i, inf o_array [i] , 

info_tag) ; 

printf ("oldText was: %s", array [count -2]); 

/* this is new 2-04-02, change the text */ 

/* if the number of text lines is more than one, */ 

/* this loop is blanking out the multiline text */ 

/* 

e=27+inf o_count ; 

textLineCount = atoi (array [e] ) ; 
if (textLineCount > 1) { 

for ( e=textLineCount+l ; e<=count-2 ; e++ ) { 

if (strcmp (array [e] , "0\n") «NULL) { 

} else{ 

strcpy (array [e] , new_inf otext ) ; 

} 

} 

} else { 

strcpy (array [count - 2], new__inf otext ) ; 

} 

*/ 

/* the following line was in use instead of the 1-30-02 block above 

strcpy (array [count - 2], new_inf otext ) ; 
break; 

} 

/*WRITE OUT THE TEX ELEMENT TO THE NEW MI FILE*/ 
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/*=„=========================================*/ 

fputs (el_type, new_mif ile) ; 
for (i=0; Kcount ; i++) { 

fputs (array [i] , new_mifile) ; 

} 

fputs (" |~\n", new_mifile) ; 
/*WRITE OUT THE ASSP ELEMENT TO THE NEW MI FILE*/ 

} else if (strcmp (el_type, "ASSP\n") — NULL) { 
fputs (el__type, new_mifile) ; 
for (i=0; Kcount; i++) { 

fputs (array [i] , new_mif ile) ; 

} 

fputs ( " I ~\n" , new_mif ile) ; 

} 

} 

fclose (mifile) ; 
fclose (new_mifile) ; 

/* 

system ("cp /tmp/changedMI /tmp/changedMI2 " ) ; 
filename = " /tmp/changedMI2 " ; 
} */ 

fclose (infotextfile) ; 
return ( 0 ) ; 
} 

/* ================= MAKE ELEMENT FUNCTION ========================= 

* MAKE NEW ELEMENTS. FIND IF ELEMENT IS BAD, IF SO ADD PTR TO 

* BADTEXT ASSP, INC PTR COUNT, PUT THE NEW ELEMENT INTO THE NEW_MIFILE. 

* TAKES IN: ELEMENT ARRAY, ARRAY INDEX PTR, NUMBER OF BADTEXT ASSP, MIFILE, 
mifile = new_mifile; 

* BAL ARRAY, INT_COUNTER. 
*/ 

int make_element (array, array_count , inf o_tag, inf otext , mifile, bals , bal_count ) 
char array [SIZE] [SIZE] ; 
int *array_count ; 

char info_tag[10] , inf otext [ 8 0] ; 

FILE *mifile; 

char bals [SIZE] [SIZE] ; 

int bal_count; 

{ 

int badtext=0, i; 
char line [SIZE] ; 

while (strstr (fgets (line, sizeof ( line ) , mifile), "|~\n") NO_MATCH) { 
strcpy (array [*array_count ] , line) ; 
++*array_count; 

/* if (strstr (line, "badtext") MATCH) */ /*this works*/ 

if (strstr (line, infotext) MATCH) /*this works*/ 

strcpy ( inf o_tag , array [ 0 ] ) ; 

/*Check to see if this element contains any of the following pieces of 
text and if so indicate it needs to be tagged */ 



if ( (strstr (line, "_yl4") MATCH) || 
(strstr (line, "_Y14") MATCH) | | 
(strstr (line, "_") MATCH) || 
(strstr (line, "_d_" ) MATCH) || 
(strstr (line, "_e_" ) MATCH) || 
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(strstr (line, 
( strstr (line, 
( strstr ( line, 
(strstr (line, 
{ strstr ( line, 
(strstr (line, 



_f_") MATCH) 

_g_") MATCH) 

_h_") MATCH) 

_0_") MATCH) 

_1_") MATCH) 

2 ") MATCH) 



(strstr (line, "symb") MATCH) ) 
badtext=l ; 

/*Check to see if this element points to one of the BAL elements (recorded 
in the bal [ ] array) and if so indicate it needs to be tagged. */ 

f or ( i=0 ; i<=bal_count ; + + i ) 

if (strcmp (line,bals [i] ) == NULL) badtext=l; 

} 

return (badtext) ; 
} 

/* ================= TAG ELEMENT FUNCTION ========================== 

* ADJUST THE ELEMENT BY INSERTING THE INFO TAG PTR TO BADTEXT ASSP AND 

* INCREMENT THE OTHER PTR IS IN THE ELEMENT. 
*/ 

int tag_element (array, array_count, layer_ptr, num) 
char array [SIZE] [SIZE] , layer_ptr [ 10 ] ; 
int *array_count , num; 
{ 

int i, ptr_int; 
char ptr_char [ 80 ] ; 

ptr_int = atoi (array [num] ) + 1; 
my_itoa (ptr_char , ptr__int) ; 

/* MOVE ALL ARRAY VALUES FROM ARRAY [num+1] TILL EL_COUNT, UP ONE 

* THEN COPY BADTEXT INFO PTR INTO ARRAY [num+1] AND ADD ONE TO THE EL_COUNT 
*/ 

strcpy (array [num] , ptr_char) ; 
for (i=*array_count; i>=num; i-- ) 

strcpy (array [i + 1], array[i]); 
strcpy (array [num+1 ] , layer_ptr) ; 
return ( * ar ray_count + 1 ) ; 



} 



/* ================= SUBSTITUTE CHAR FUNCTION = 

void make_newline (char *line, char *newline) { 
while (*line != 1 \0') { 
if (*line =- '\016' ) { 
line++; 

switch (*line) { 

case , \060 I : *newline = , \362 l ; break; 
case 'XOGl 1 : *newline = f \363 f ; break; 
case '\062': *newline = '\316'; break; 
default: *newline++ = *\016'; 

*newline++ = *line; 

*newline = 1 \017 1 ; 

} 

newline++ ; 
line += 2; 

} 

else 



==*/ 



/* 322' 
/* 362" 
/* 376' 



*/ 
*/ 
*/ 
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*newline++ = *line++; /^increment the pointer position and */ 
} /^assign its content to the incrimented newline ptr 1 s content. */ 

*newline++ = '\0'; /*add a null to last char of newline */ 

} 

/* USAGE ===-=============================== =::: ==== == */ 

void usage {char command [ 15 ] , char option [80]) { 

if ( (strstr (option, "tag") MATCH) ) 

printf{"%s %s %s\n" , " \nUsage :" , command, "<MI file> uniqID tag 
<inf o_text>\n" ) ; 

else if ( (strstr (option, "find") MATCH)) 

printf("%s %s %s\n" ," \nUsage :", command, "<MI file> uniqID find 

<info_text>\n" ) ; 

else if ( (strstr (option, "changem") MATCH) ) 

printf("%s %s %s\n" ," \nUsage :", command, "<MI file> uniqID changem 
<info_textfile>\n") ; 

else if ( (strstr (option, "change") MATCH)) 

printf("%s %s %s\n" , "\nUsage :", command, "<MI file> uniqID change <info_text> 
\"new TEX value\"\n"); 
else 

printf("%s %s %s\n" ," \nUsage :", command, "<MI file> uniqID tag I find | change 
<info_text> [\"new TEX value\ " ] \n" ) ; 
exit (1) ; 

} 



